home *** CD-ROM | disk | FTP | other *** search
/ Aminet 35 / Aminet 35 (2000)(Schatztruhe)[!][Feb 2000].iso / Aminet / dev / gui / gui4cli.lha / Gui4Cli / Tools / Rtn / HelpPop < prev    next >
Encoding:
Text File  |  1999-11-24  |  524 b   |  34 lines
  1. G4C
  2.  
  3. ; pop-up gui for help bubles
  4.  
  5. winbig 0 0 200 14 ''
  6. wintype 000010
  7. resinfo 8 640 256
  8. winonmouse 30 12
  9.  
  10. xOnLoad text
  11.     gosub #this Display
  12.  
  13. xOnReload text
  14.     guiclose #this    ; show in other place
  15.     gosub #this Display
  16.  
  17. xOnRMB
  18.     guiclose #this
  19.  
  20. xRoutine Display
  21.     info variable text
  22.     width = $(($$var.length * 8) + 6)    ; using 8 point font..
  23.     changearg #this 0 2 $width                ; window width
  24.     guiopen #this
  25.     changearg #this 1 2 $width                ; change text width
  26.     redraw #this
  27.     update #this 1 '$text'
  28.  
  29. TEXT 0 0 0 0 '' 100 box
  30.     gadid 1    
  31.  
  32.  
  33.  
  34.